Module User
    Public fUser As frmUser, isCon As Boolean
    Sub main()        
        fUser = New frmUser
        fUser.ShowDialog()
    End Sub
End Module
